home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 207
/
207.d81
/
middle earth
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
201 lines
10 rem middle earth quiz by henry newcomb
20 rem translated for the commodore 64 by donna k. woody
30 :print"[147]"
40 poke53272,23: rem selects upper/lower case
50 printchr$(8): rem disables c/shift keys
60 poke53280,14 :rem set border color to light blue
70 poke53281,5 :rem set background color to green
80 printchr$(5):rem set character color to white
97 :
98 rem initialize variables
99 :
100 flag=0:q=32:x=q
110 dim q$(q),a$(x),b$(x),c$(x),d$(x),ra$(x)
127 :
128 rem read data statements
129 :
130 forcnt=1toq:readq$(cnt):reada$(cnt):readb$(cnt):readc$(cnt):readd$(cnt)
140 readra$(cnt):nextcnt
150 forx=1to6:readquiz$(x):next
167 :
168 rem title page
169 :
170 gosub5000
197 :
198 rem print questions
199 :
200 rt=0:wr=0:forcnt=1toq
205 printchr$(147)
210 printtab(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
220 print"[209][213][197][211][212][201][207][206][160]# ";cnt
230 print"";q$(cnt);" ?"
240 print"[193]. ";a$(cnt)
245 print
250 print"[194]. ";b$(cnt)
255 print
260 print"[195]. ";c$(cnt)
265 print
270 print"[196]. ";d$(cnt)
272 print
275 print"[216]. [197]xits [208]rogram"
280 print"[197]nter [[193]] [[194]] [[195]] [[196]] [[216]] ";
290 poke204,0:poke207,0:getm$:ifm$=""then290
291 poke 204,1 :print
300 ifm$="a"orm$="b"orm$="c"orm$="d"then400
335 ifm$="x"then 700
340 print"[211]orry. [217]ou must enter [193], [194], [195], ,[196] or [216].[145][145][145][145][145]":goto280
397 :
398 rem keep score
399 :
400 ifm$=ra$(cnt)thenrt=rt+1:goto 450
410 wr=wr+1:printtab(26)"[145][215]rong!!"
415 printra$(cnt)" is the correct answer."
420 print"[208]ress space bar to continue.";
430 poke204,0:poke207,0:getz$:ifz$=""then430
440 poke204,1
450 nextcnt
497 :
498 rem final report
499 :
500 printchr$(147)
510 printtab(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
520 print"[217]ou got ";rt;" questions right."
530 print"[217]ou got ";wr;" questions wrong."
540 ifwr=0thenflag=1:goto 600
550 ifwr>0andwr<4thenflag=2:goto 600
560 ifwr>3andwr<13thenflag=3:goto 600
570 ifwr>12andwr<21thenflag=4:goto 600
580 ifwr>20andwr<26thenflag=5:goto 600
590 ifwr>25thenflag=6
600 print"";quiz$(flag)
610 print"[215]ould you like to try again (y/n)?";
620 poke204,0:poke207,0:getz$:ifz$=""then620
630 poke204,1
640 ifz$="y"then 200
650 ifz$="n"then 700
697 :
698 rem end routine
699 :
700 goto40000:remd"chr$(34)"payload"chr$(34)",8":print"qqqqruns"
705 [151]631,13:[151]632,13:[151]198,2:[128]
997 :
998 [143] data statements
999 :
1000 [131]"right$n what land is (NULL)t. str$oom located","chr$ondor","(NULL)ordor","(NULL)ohan","valriador"
1010 [131]"b"
1020 [131]"(NULL)here are the mines of (NULL)oria located","(NULL)ordor","(NULL)isty (NULL)ountains"
1030 [131]"(NULL)ts. of (NULL)hadow","right$ron left$ills","b"
1040 [131]"(NULL)here is str$ol atnmroth located","(NULL)est of chr$ondor","(NULL)he (NULL)isty (NULL)ountains"
1050 [131]"(NULL)he peekay of peekelfalas","(NULL)orthern (NULL)aste","c"
1060 [131]"right$n what land is left$elms str$eep located","chr$ondor","(NULL)he (NULL)hire","(NULL)ordor"
1070 [131]"(NULL)ohan","d"
1080 [131]"atnlong what road does right$sengard lie","(NULL)ld (NULL)outh (NULL)oad","(NULL)he chr$reenway"
1090 [131]"(NULL)ld ascorest (NULL)oad","chr$reat valast (NULL)oad",a
1100 [131]"right$n what land is the (NULL)hire located","(NULL)hovanion","valriador","chr$ondor"
1110 [131]"(NULL)hun",b
1120 [131]"(NULL)hat are the seeing stones of (NULL)umenor","valye glasses","(NULL)alantirs"
1130 [131]"(NULL)irrors","(NULL)indows",b
1140 [131]"(NULL)ho is the chr$rey (NULL)ilgrim","peekilbo","atnragorn","chr$andalf","peekoromir",c
1150 [131]"(NULL)ho was ascaramir","peekoromir's brother","(NULL)ne of the left$obbits"
1160 [131]"(NULL)he elf king","(NULL)he name of the peeklack lenaptain",a
1170 [131]"(NULL)hat are oliphaunts","(NULL)rc for left$obbit","vallephants","atnn (NULL)rc clan"
1180 [131]"chr$oblins",b
1190 [131]"(NULL)hat was the special mark that peekoromir carried with him","atn ring"
1200 [131]"atn sword","atn horn","atnn amulet",c
1210 [131]"(NULL)ho stood guard over (NULL)aruman at (NULL)rthanc","(NULL)he valnts","(NULL)rcs"
1220 [131]"chr$andalf","vallves",a
1230 [131]"(NULL)ho rode with chr$andalf on (NULL)hadowfax to (NULL)inas (NULL)irith","(NULL)erry"
1240 [131]"ascrodo","(NULL)ippin","(NULL)am",c
1250 [131]"(NULL)hich three of the chr$rey lenompany tracked (NULL)aruman's orcs into (NULL)ohan"
1260 [131]"atnragorn - peekoromir - ascrodo","(NULL)erry - (NULL)ippin - chr$andalf"
1270 [131]"atnragorn - (NULL)egolas - chr$imli","chr$imli - ascrodo - (NULL)am",c
1280 [131]"(NULL)ho did atnragorn, (NULL)egolas, and chr$imli meet in (NULL)ohan","ascrodo"
1290 [131]"(NULL)reebeard","(NULL)ithrandir","ascatty (NULL)umpkin",c
1300 [131]"(NULL)hat famous object was broken at the battle of atnrgonath"
1310 [131]"atnragorn's sword","peekoromir's horn","chr$andalf's staff","ascrodo's ring",b
1320 [131]"(NULL)hat was chr$andalf's real name","atnmbrosius","peeken","right$nglorian","(NULL)lorin",d
1330 [131]"left$ow many (NULL)azgul broke into lenrickhollow","(NULL)wo","(NULL)hree","ascour","ascive",b
1340 [131]"(NULL)ho or what according to legend was the first living thing on 'valarth'"
1350 [131]"(NULL)om peekombadil","(NULL)he valnts","(NULL)he elves","(NULL)maug",a
1360 [131]"(NULL)ho became a bear at the battle of the five armies","atnragorn"
1370 [131]"chr$imli","peekeorn","chr$andalf",c
1380 [131]"(NULL)ho was (NULL)uickbeam","atnn valnt","atnn elf","atn left$obbit","chr$andalf",a
1390 [131]"(NULL)hat was the only harm (NULL)maug inflicted on peekilbo"
1400 [131]"atn small cut on the forehead","atn twisted ankle"
1410 [131]"peekurning the hair off his ankle","(NULL)one",c
1420 [131]"(NULL)ho was the last steward of chr$ondor","peekoromir","atnragorn","ascaramir"
1430 [131]"str$enethor",d
1440 [131]"(NULL)ho was the last person to have the ringin his possession","(NULL)am"
1450 [131]"ascrodo","chr$ollum","(NULL)one of the above",c
1460 [131]"(NULL)ame the last three ring bearers in order","(NULL)am - ascrodo - chr$ollum"
1470 [131]"ascrodo - (NULL)am - chr$ollum","ascrodo - chr$ollum - ascrodo","(NULL)am - chr$ollum - ascrodo"
1480 [131]a
1490 [131]"(NULL)hich two famous people have nine fingers","(NULL)am - ascrodo"
1500 [131]"ascrodo - (NULL)auron","chr$andalf - ascrodo","peekilbo - (NULL)am",b
1510 [131]"(NULL)hat was the name of the horse that (NULL)om peekombadil rode","(NULL)hadowfax"
1520 [131]"(NULL)trong-bearer","ascatty (NULL)umpkin","(NULL)rail ascollower",c
1530 [131]"(NULL)ho was (NULL)harky","ascrodo","chr$andalf","(NULL)auron","(NULL)aruman",d
1540 [131]"(NULL)hat did chr$andalf threaten to do to peekarliman peekutterbur"
1550 [131]"(NULL)urn him into a frog","(NULL)poil his food","(NULL)urn his beer sour"
1560 [131]"peekurn his inn down",c
1570 [131]"(NULL)hat was ascrodo's mistake on (NULL)eathertop","left$e put the ring on"
1580 [131]"left$e got lost","left$e insulted atnragorn","left$e put the fire out",a
1590 [131]"(NULL)ho helped ascrodo reach (NULL)ivendell (at thevery end)","chr$andalf","(NULL)am"
1600 [131]"atnragorn","chr$lorfindel",d
1610 [131]"(NULL)hat or who saved ascrodo's life in the mines of (NULL)oria","atnragorn"
1620 [131]"(NULL)he ring","(NULL)he mithril coat","chr$andalf's spell",c
1630 :
1631 [143] quiz$ report data
1632 :
1640 [131]"(NULL)ith a record like that you could guide ascrodowith your eyes closed."
1650 [131]"(NULL)ou could probably guide ascrodo and lenompany through the lands."
1660 [131]"(NULL)ou could probably guide ascrodo with the help of a map."
1670 [131]"(NULL)ou would be wise to have someone guide you through the lands."
1680 [131]"(NULL)ith a lot of luck and a map you might make it through the lands."
1690 [131]"do not leave the immediate area as you are likely to get lost."
4997 :
4998 [143] title page
4999 :
5000 [153][199](147)
5005 [153]""
5010 [153][163]11)"(NULL)iddle valarth (NULL)uiz"
5012 [153][163]18)"by"
5014 [153][163]13)"verifyleft$enry (NULL)ewcomb"
5016 [153][163]6)"open(NULL)ransla